home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 June / 1994-06b.d64 / char changer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  56 lines
  1. 100 rem  character effects
  2. 110 rem  by david gunderson
  3. 120 rem
  4. 130 rem sys 49152 makes text reappear
  5. 140 rem sys 49269 scrambles text
  6. 150 rem sys 49361 makes text disappear
  7. 160 poke52,48:poke56,48:clr:rem save mem for characters
  8. 170 s=49152:ifpeek(s+287)*peek(s+2)=21120then190
  9. 180 fork=stok+287:readx:c=c+x:pokek,x:next:ifc<>40352thenprint"data error":stop
  10. 190 poke53272,12+(peek(53272)and240)
  11. 200 sys s
  12. 210 ifrnd(1)<.4thensys s:goto240
  13. 220 ifrnd(1)<.6thensys s+117:goto240
  14. 230 sys s+209
  15. 240 fori=1tornd(1)*1999:next:goto210
  16. 250 :  make text appear
  17. 260 data173,14,220,41,254,141,14,220
  18. 270 data169,255,141,14,212,141,15,212
  19. 280 data169,128,141,18,212,169,5,141
  20. 290 data233,3,134,252,134,254,160,0
  21. 300 data169,48,133,253,169,208,133,255
  22. 310 data162,0,173,27,212,141,233,3
  23. 320 data73,255,141,234,3,165,1,41
  24. 330 data251,133,1,177,252,45,234,3
  25. 340 data141,232,3,177,254,45,233,3
  26. 350 data13,232,3,145,252,209,254,240
  27. 360 data2,162,1,165,1,9,4,133
  28. 370 data1,200,192,0,208,204,230,253
  29. 380 data230,255,165,253,201,56,208,194
  30. 390 data224,0,208,180,173,14,220,9
  31. 400 data1,141,14,220,96
  32. 410 :  make text scatter
  33. 420 data173,14,220,41,254,141,14,220
  34. 430 data169,5,141,233,3,169,255,141
  35. 440 data14,212,141,15,212,169,128,141
  36. 450 data18,212,162,250,160,0,169,48
  37. 460 data133,253,132,252,173,27,212,41
  38. 470 data7,141,232,3,238,232,3,169
  39. 480 data0,42,206,232,3,208,250,141
  40. 490 data233,3,177,252,77,233,3,145
  41. 500 data252,200,192,0,208,222,230,253
  42. 510 data165,253,201,56,208,214,232,224
  43. 520 data0,208,201,173,14,220,9,1
  44. 530 data141,14,220,96
  45. 540 :  make text disappear
  46. 550 data173,14,220,41,254,141,14,220
  47. 560 data169,250,141,233,3,169,255,141
  48. 570 data14,212,141,15,212,169,128,141
  49. 580 data18,212,160,0,169,48,133,253
  50. 590 data132,252,162,0,173,27,212,141
  51. 600 data233,3,177,252,45,233,3,145
  52. 610 data252,240,2,162,1,200,192,0
  53. 620 data208,234,230,253,165,253,201,56
  54. 630 data208,226,224,0,208,212,173,14
  55. 640 data220,9,1,141,14,220,96
  56.